home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Sample Code / Snippets / Devices / DisableEjectƒ / DisableEject.p < prev    next >
Encoding:
Text File  |  1992-07-15  |  774 b   |  33 lines  |  [TEXT/MPS ]
  1.  
  2. PROGRAM DisableEject;
  3.  
  4. USES    Quickdraw,MemTypes,SysEqu,ToolUtils,Resources,Dialogs,traps,
  5.         OSUtils,Retrace,Fonts,OSEvents,Windows,menus,ShutDown,memory;
  6.  
  7. VAR
  8.     hdl : handle;
  9.     MyPtr,CtrlPtr,MyCtrlPtr : ptr;
  10.     err : integer;
  11.     quit : boolean;
  12.     theEvent : EventRecord;
  13.     
  14. {------------------------------------------------------------------------------------}
  15.  
  16. PROCEDURE PatchIt (aPtr:ptr);    EXTERNAL;
  17.     
  18. PROCEDURE MyCtrl;    EXTERNAL;
  19.     
  20. PROCEDURE MyProcEnd;    EXTERNAL;
  21.  
  22. {------------------------------------------------------------------------------------}
  23.  
  24. BEGIN                              {main PROGRAM}
  25.     
  26.     MyPtr := NewPtrSys (size(longint(@MyProcEnd)-longint(@MyCtrl)));
  27.     if MyPtr <> nil then
  28.     begin
  29.         BlockMove(@MyCtrl,MyPtr,size(longint(@MyProcEnd)-longint(@MyCtrl)));
  30.         PatchIt (MyPtr);
  31.     end;
  32.     
  33. END.